home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / apb / termcap < prev    next >
Text File  |  1991-01-08  |  285b  |  11 lines
  1. require "sys/ioctl.ph";      # (or equivalent)
  2.  
  3. ioctl(TTY,&TIOCGETP,$params);
  4. ($ispeed,$ospeed) = unpack('cc',$params);
  5.  
  6. require "termcap.pl";
  7.  
  8. &Tgetent($ENV{'TERM'}); # sets $TC{'cm'}, etc.
  9. &Tputs(&Tgoto($TC{'cm'},$col,$row), 0, 'FILEHANDLE');
  10. &Tputs($TC{'dl'},$affcnt,'FILEHANDLE');
  11.